home *** CD-ROM | disk | FTP | other *** search
/ Tools Unlimited 1: The Blanker Collection / Tools Unlimited - Vol 1 - The Blanker Collection.iso / Blanker / Packages / GarshneBlanker / RNDBlank / RNDBlank.rexx < prev   
OS/2 REXX Batch file  |  1996-01-25  |  503b  |  17 lines
  1. /* RNDBlank v1.00 by Fergus Duniho */
  2. /* Note: This script requires RexxArpLib 3.0. */
  3. /* It also requires parm.library and WBRun. */
  4. /* Usage: rx RNDBlank <pattern> */
  5.  
  6. if exists("libs:rexxarplib.library") then do
  7.     if ~show("L","rexxarplib.library") then
  8.         call addlib("rexxarplib.library",0,-30)
  9. end
  10.     else say "You need RexxArpLib.library"
  11.  
  12. Arg Pat
  13. Pat = Pat || "~(*.info)"
  14. Blankers = FileList(Pat, Blanker, "F", "E")
  15. RND = Random(1,Blankers,Time("S"))
  16. Address Command "WBRun" Blanker.RND
  17.